home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASANS.ZIP / CH05_3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-04  |  1.7 KB  |  59 lines
  1.                             (* Chapter 5 - Programming exercise 3 *)
  2. (**************************************************************)
  3. (*       Centigrade to Farenheight temperature conversion     *)
  4. (*                                                            *)
  5. (*  This program generates a list of temperature conversions  *)
  6. (*  with a note at the freezing point of water, and another   *)
  7. (*  note at the boiling point of water.                       *)
  8. (**************************************************************)
  9.  
  10. program Temperature_Conversion;
  11.  
  12. var Count,Centigrade,Farenheight : integer;
  13.  
  14.    function Convert(In_Temp : integer) : integer;
  15.    begin
  16.       Convert := (32 + In_Temp * 9 div 5);
  17.    end;
  18.  
  19. begin
  20.    Writeln('Centigrade to farenheight temperature table');
  21.    Writeln;
  22.    for Count := -2 to 12 do begin
  23.       Centigrade := 10*Count;
  24.       Farenheight := Convert(Centigrade);
  25.       Write('  C =',Centigrade:5);
  26.       Write('    F =',Farenheight:5);
  27.       if Centigrade = 0 then
  28.          Write('  Freezing point of water');
  29.       if Centigrade = 100 then
  30.          Write('  Boiling point of water');
  31.       Writeln;
  32.    end;
  33. end.
  34.  
  35.  
  36.  
  37.  
  38. { Result of execution
  39.  
  40. Centigrade to farenheight temperature table
  41.  
  42.   C =   -20    F =   -4
  43.   C =   -10    F =   14
  44.   C =     0    F =   32  Freezing point of water
  45.   C =    10    F =   50
  46.   C =    20    F =   68
  47.   C =    30    F =   86
  48.   C =    40    F =  104
  49.   C =    50    F =  122
  50.   C =    60    F =  140
  51.   C =    70    F =  158
  52.   C =    80    F =  176
  53.   C =    90    F =  194
  54.   C =   100    F =  212  Boiling point of water
  55.   C =   110    F =  230
  56.   C =   120    F =  248
  57.  
  58. }
  59.